home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog53 < prev    next >
Encoding:
Text File  |  1995-06-29  |  611 b   |  31 lines
  1. # option menu
  2.  
  3. proc optionCB {w} {
  4.     puts stdout "selected: $w"
  5.     .rc.option1 getValues \
  6.     -menuHistory h
  7.     puts stdout "history: $h"
  8. }
  9.  
  10. xtAppInitialize -class Program
  11.  
  12. xmRowColumn .rc managed
  13.  
  14. xmPulldownMenu .rc.pulldown1
  15. xmPushButton .rc.pulldown1.options1 managed \
  16.     -labelString "value 1"
  17. .rc.pulldown1.options1 activateCallback {optionCB %w}
  18.  
  19.  
  20. xmPushButton .rc.pulldown1.options2 managed \
  21.     -labelString "value 2"
  22. .rc.pulldown1.options2 activateCallback {optionCB %w}
  23.  
  24. xmOptionMenu .rc.option1 managed \
  25.     -labelString "Option set" \
  26.     -subMenuId .rc.pulldown1
  27.  
  28. . realizeWidget
  29.  
  30. . mainLoop
  31.